Attribute VB_Name = "cmnRbnOnAct"
'------------------- Copy & paste from here to the cmnRbnOnAct module of add-in file --------------------
'
' Copyright (C) 2012 Ken Majima <majimaji12@gmail.com>
'     All rights reserved.
'     This is free software with ABSOLUTELY NO WARRANTY.
'
' You can redistribute it and/or modify it under the terms of
' the GNU General Public License version 2.


Option Explicit

' :Function: Update
Sub UpdateOnAct(control As IRibbonControl)
  HgUpdate
End Sub

' :Function: Revert
Sub RevertOnAct(control As IRibbonControl)
  HgRevert
End Sub

' :Function: QuickCommit
Sub QcommitOnAct(control As IRibbonControl)
  HgQuickCommit
End Sub

' :Function: Commit
Sub CommitOnAct(control As IRibbonControl)
  HgCommit
End Sub

' :Function: Diff
Sub DiffOnAct(control As IRibbonControl)
  HgDiff
End Sub

' :Function: Invoke repository browser
Sub WorkBenchOnAct(control As IRibbonControl)
  HgWorkBench
End Sub

' :Function: Log
Sub LogOnAct(control As IRibbonControl)
  HgLog
End Sub

' :Function: Add
Sub AddOnAct(control As IRibbonControl)
  HgAdd
End Sub

' :Function: Forget
Sub ForgetOnAct(control As IRibbonControl)
  HgForget
End Sub

' :Function: Open explorer and focus on the active content file.
Sub OpenExplorerOnAct(control As IRibbonControl)
  OpenExplorer
End Sub
